APPENDIX 



rein *" Inertia Friction Welding Inj 

rem Opyii^ht 1990 

rem — All rights reserved 

rem 

rem 

rem *"* laeriio Friction Welding lac 
rem *"* Copyright 1996 
rem "* All rights reserved 
rerr. 

~ " rem *MAIN 

rerr. Tais is the main profinm task 
*MAIN 

js #isrr 

xo #IDLE,1 
#MAlN'l 

JS #CYCLE.tg[Sl 
JS #HOMh.Hr»b-l: 
JS «WFI D1.RPR-": 
JP •MAIN! 
EN 

rem Ead »MAIN 

rerr. *"* inertia Friction Welding lac 
rem Copyright 1996 
rem *"* All right* reserved 
rem 

rem — •HOME 

rem Home tunciion 

#HOME 

HX .; 

11PB-0. 

MG 'HOME" 

XYHomed-0; 

HjmeLP-l; 

Kevl.S-ti;KrtTl .Wt; 

ER HomeFE; 

AC HomeAcc; 

DC HouieDtL-; 

KT Homer; 

KI Homcl: 

KD HomeD: 

IL 2;VT I: 

• HOMF.X 

MO "Homint; . . . ": 



APPENDIX-coutinucd 



StoiM*g--HOMEX." 
rem Make sine of home twitch 
MG "Gel ot "home switch . . . 
JO MVeliUUA; 

*WFX2JP *WFX2,i3!!M2r-0: 
WT 500 

STX;AMXJP #HOMCX^SIN[:]-0. 

MG 'OS Home switch . . . "; 

rem Find borne LS 

MG "Looking for home iv-iich . . . "; 

*WFXl; 

fK -5:H(i:AMX; 

JP #WFXl.iaLN*2)-l;XPo*- TPX: 
MG "Home switch found . . . 
rem 

rctr. Go back to home poii'jon 

SPFIVtl: - 

PA XPofi:BG:AM:DP0; 

MG "Slide* Homed . . . " 

#HOME3 

XYHomed-1: 

XQ •idle.: 

EN 

tern Cad #HOM0" 

rcir *** Inertia Friction Welding In; 

rem ■•* Copyright 1996 

re it. ■■"All right* reserved 

rcir. 

rem ■•• *POSERK 

rem Position following error 

irPOSERR 

ZS; 

JS #HAU; 

MG -FOLLOWING ERROR" 
SiaiMie-'FOLERR" 
ZSJp #MAIN: 
RF. 

rem End #POSERR ' 
rem "* Lcerua Friction Welding In; 
rem "* Copyright 1996 
rem ""All rights reserved 
rem 

rem "* #HALT 

rem Brings mo: ion to ■ stop 

#HAIT 

Su^Mcg --HALT- 
ER --ICOOMI OAB 1:WT 1000: 
SH.CS:HX l:MO; 
OP255; 

rem JS "CLEAR tO, 

MG "Servo p;cgrin halted 

EN 

rem enc *HALU' 

rerr. *"* Inertia Friction Weld'ng In; 

rcm *" Copyright J 996 

rem *** All ri^hu reserved 

rem 

'IDLE 

IdleTM-TlME 
#IDLE1 

JP #lULtl.HMt-ldlel NUHJU ): 
[Tune -[Time* 1: 

MG "Servo Ready . . . -.ITiine{F&) 

JT #IDLE; 

EN 

rem Ead "IDLE ' 

rem *** lcerua Friction Welding Inc 

rem Copyright 1996 

rem *** All rigbu reserved 

rem 

*1NTT 

SB 1;SB 1;SB 3;SB 4; 
SB 5:SB G.SB 7.SB 3; 
Ell*-: COO; 
OE*-l; 
TL 1; 
GN 1; 
AC SCO, 
DC 5C0-. 
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KP.2; 
KI .C5: 
KD 0; 

mkb-u; 
RPB-0: 

XYHumeJ-0: 
tdleTM-0; 
ITimr-0: 
JS *1NUGL 
JS #1NTTWL 
EV: 

rem Knd «INIT 

rcir. *"* Ineriia Fricuon Weld;ori L:j 
tcm •"• Copyright 1996 
rcir. *"* All rifrihu ickivcl 
rem 

#WELD1 
HX . 
RPB-0; 

MG 'We id Cycle Scried" 

EX'-WeldFE- 

OE*-l; 

tcm 

TLUeldTU 

GN WcldGN; 

SP WeldSP: 

AC WeldAC: 

DC We id DC; 

KP WeldKP: 

KI WeldKJ; 

KD WeldXD; 

Piw-PPR'WeidRev; 

Disi:-Diit-(PPR*TrigRcv): 

PR DiiU 

TW 500; 

BOX: 

MO -Scnh . . 
rem Scrub stait 
AT O. 

AT ScrubTM: 
rem 3'jjd *Urt 
CB1: 

MO "Burn ..." 
AD Dis;2; 
rem WT51T0 
rem Forge Sun 
CB 2; 
SB 1; 

MC "Forge . . . " 
AMX; 

KP WddKP:; 
WT ForgeTM: 
SB 2 

MO "Weld cnmpleti" 
V»T 10COO 
KP WcldKP. 
CS. 

rem End #WELD: 
rerr. 

•CYCLE 

JS •HUMt.'OHoniM-] 
JS «WELU1; 
XO *IDLE,i 
EN 

rem End #CYCLC 
#MCT1ME 

MG "Position limccul ..." 
RE 

rem Had WELD; CYCLE MODULE 
rem 

•IMTGL 
rem 

(em GLOBAL VARIABLES 

tern 

rem 

rem PULSES PER INCH 

PP1-1000.00CO0-) 

rem PU1 SFS PFR RF.V 

PPR-7941.22449 
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rem Tuner Ticks Per Sccotd 
TPS- 1000 

rem Input Volts Per Unii 

1 VJU-Kf M-i.JUULOU 

rVltfPSI-J.000003 

rem Output MjIia Per Utii 

OV11FRPW-2.0COOOO 

OVltTPSI-3.000000 

rem Sample Rrite 
* S»inpleRi-100 

rem Number oi IO 

rem Homing ml lowing error counts 

HomeFE-2000; 

Home Vel- 1000; 

Hume Ace- SOD: 

IIomcDec-500: 

HomeP-.S; 

Homel-.OZ; 

HomeD-0; 

GHomeVeJ.lOOn; 

FTVei-1000; 

rem Software limits 

XfLimit-lLCOO 

YFUmii-ll.OOO 

XBLimil— 0.10C 

YBLimit— 0.100 

lDverUO-1 

rem Max Move Values 
MaxXMVel-10 
MaxXMAcc-40 
MaxXMOec-40 

EN 
rem 

rem Weld tttn v-ahie* 
#INTTWL 

rem ■"• I tenia Friction Welding In; 
rem -■• Copyright 199f» 
rem **" All lights icservec 
rem 

feni Weld ipccific p annus 

WeIdRr.M-1750 

ScrubTM-2000; 

Forge TM -4000; 

WeldilevS-10 

Degree*^) 

TrigRev-0.5 

rem 

rem PID paraaii 

WdtiAcc-lX 

WelcDcc-lXI 

WekKP-O.S 

WeldKP:-] 

WelcKJ-O.lS 

WeldKD-.Ml 

WcltlFEri-l.5 

W C IJTL-9.S9SS 

WeIdCN-20 

rem 

rem Calculated parameters 
WeI(iRev-i;Degrees,'360)+WeldRevS; 
WelcSF-(* e ldKFM •FPHj/frj: 

WeldAC-CWe)dAcc*PPR)/oU; 
WcldDC-(WddDcc*PPR)/60; 
WeldFE-W e |dFr;rr*ppR : 
rem 

rem End weld. est •••••-•■«-... 

EN 

rem End #LS*TTLW • 



